vr2-5-05.wrl


[ VRML source code ]

#VRML V2.0 utf8
#vr2-5-05.wrl
DEF Timer TimeSensor {
  cycleInterval 5
  loop TRUE
}
DEF RadiusValue ScalarInterpolator {
  key [ 0.0, 0.5, 1.0 ]
  keyValue [ 1, 2, 3 ]
}
Transform {
  scale 0.2 1 1
  children DEF Ring Shape {
    appearance Appearance {
      material Material {
        diffuseColor 1 1 0
      }
    }
    geometry DEF Sph Sphere {
      radius 1
    }
  }
}
ROUTE Timer.fraction_changed    TO RadiusValue.set_fraction
ROUTE RadiusValue.value_changed TO Sph.set_radius